projects
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8a981a0
)
*** empty log message ***
author
Juanma Barranquero
<lekktu@gmail.com>
Tue, 5 Feb 2008 11:44:25 +0000
(11:44 +0000)
committer
Juanma Barranquero
<lekktu@gmail.com>
Tue, 5 Feb 2008 11:44:25 +0000
(11:44 +0000)
lisp/ffap.el
patch
|
blob
|
history
diff --git
a/lisp/ffap.el
b/lisp/ffap.el
index 3e62f2351c63e0c336d6b049c1a1177f2bc56ed9..aaf92ebe3063fe12b9bc7402c758e4c84926f630 100644
(file)
--- a/
lisp/ffap.el
+++ b/
lisp/ffap.el
@@
-426,7
+426,7
@@
Returned values:
;; (ffap-machine-p "mathcs" 5678 nil 'ping)
;; (ffap-machine-p "foo.bonk" nil nil 'ping)
;; (ffap-machine-p "foo.bonk.com" nil nil 'ping)
- (if (or (string-match "[^-[:alnum:].]" host) ; I
llegal
chars (?)
+ (if (or (string-match "[^-[:alnum:].]" host) ; I
nvalid
chars (?)
(not (string-match "[^0-9]" host))) ; 1: a number? 2: quick reject
nil
(let* ((domain